home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / dev / gui / Feelin.lha / Feelin / Brushes.e < prev    next >
Text File  |  2002-03-14  |  1KB  |  36 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. #define Image(x,i) ImageObject, FA_InputMode,i, FA_FixedHeight,TRUE, FA_FixedWidth,TRUE, FA_Image,x, FA_Back,FI_None, End
  6.  
  7. PROC main()
  8.    DEF c,w
  9.  
  10.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  11.       c := ClientObject,
  12.          Child, w := WindowObject, FA_Window_Title, 'Feelin : Brushes',
  13.             Child, HGroup, NoFrame,
  14.                Child, Image('3:ArrowUp.fb0',      FV_InputMode_Toggle),
  15.                Child, Image('3:ArrowUpG.fb0',     FV_InputMode_Release),
  16.                Child, Image('3:CheckMark.fb0',    FV_InputMode_Toggle),
  17.                Child, ImageObject, FA_InputMode,FV_InputMode_Toggle, FA_Fixed,TRUE, FA_Pen_Shine,'r:FFDCA0', FA_Pen_Fill,'r:AA7864', FA_Image,'3:CheckMark.fb0', End,
  18.                Child, Image('3:Be/CheckMark.fb0', FV_InputMode_Toggle),
  19.                Child, Image('3:Be/ArrowDown.fb0', FV_InputMode_Release),
  20.             End,
  21.          End,
  22.       End
  23.  
  24.       IF c
  25.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  26.          F_Set(w,FA_Window_Open,TRUE)
  27.  
  28.          WHILE F_DoA(c,FM_Client_WaitEvent,NIL) <> FV_Client_Quit DO NOP
  29.  
  30.          F_DisposeObj(c)
  31.       ENDIF
  32.  
  33.       CloseLibrary(feelinbase)
  34.    ENDIF
  35. ENDPROC
  36.